home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 15 / CU Amiga Magazine's Super CD-ROM 15 (1997)(EMAP Images)(GB)[!][issue 1997-10].iso / CUCD / Graphics / Ghostscript / source / t1tot2.ps < prev    next >
Encoding:
Text File  |  1997-05-28  |  7.5 KB  |  304 lines
  1. %    Copyright (C) 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % t1tot2.ps
  19. % Convert a Type 1 font with Type 1 CharStrings to Type 2.
  20. % **************** THIS FILE DOES NOT WORK. ****************
  21. % **************** DON'T TRY TO USE IT. ****************
  22.  
  23. (type1ops.ps) runlibfile
  24.  
  25. % In the following lists, implemented conversions are marked with a +.
  26. % The following conversions are required for each CharString:
  27. % +    Remove lenIV initial bytes and decrypt.
  28. %    Move all hstem/vstem commands to the beginning (with -hm if any
  29. %      hint replacement), including any from subroutines.
  30. %    Fold side bearing into first moveto.
  31. % +    Remove all closepath.
  32. %    Convert Flex othersubrs to new flex commands.
  33. %    Convert hint replacement to hintmask.
  34. %    Convert MM blend othersubrs to new blend command.
  35. %    For seac, convert char bodies to subrs, add hint replacement.
  36. %    Make width relative to nominalWidthX.
  37. % The following patterns allow shortening CharStrings:
  38. % +    rlineto+ => rlineto
  39. % +    vlineto (hlineto vlineto)* [hlineto] => vlineto
  40. % +    hlineto (vlineto hlineto)* [vlineto] => hlineto
  41. % +    rrcurveto+ => rrcurveto
  42. % +    rrcurveto+ rlineto => rcurveline
  43. % +    rlineto+ rrcurveto => rlinecurve
  44. % +    (vhcurveto hvcurveto)* [vhcurveto ["hrcurveto"] | "vrcurveto"] =>
  45. %      vhcurveto
  46. % +    (hvcurveto vhcurveto)* [hvcurveto ["vrcurveto"] | "hrcurveto"] =>
  47. %      hvcurveto
  48. %    "rvcurveto" (0 y1 x2 y2 0 y3 rrcurveto)* => vvcurveto
  49. %    "hrcurveto" (x1 0 x2 y2 x3 0 rrcurveto)* => hhcurveto
  50.  
  51. % Convert a CharString from Type 1 to Type 2.
  52. % Free variables: font.
  53.  
  54. /t1tot2 {        % <charstring1> t1tot2 <charstring2>
  55.   10 dict begin
  56.     % Collect the hints, side bearing, and width.
  57.   /hints 20 dict def
  58.   /hmask 0 def        % 1 = vstem, 2 = hstem
  59.   /hmcount null def
  60.   /lsb null def
  61.   /width null def
  62.   dup t1hintops t1scan pop
  63.   t1t2ops t1scan
  64.     % Insert the hints and width at the beginning.
  65.   mark width
  66.   counttomark 2 add -1 roll aload pop ]
  67.     % Convert the string back to encoded form.
  68.   DEBUG {
  69.     (++++ ) print [ 1 index { dup null eq { pop } if } forall ] == flush
  70.   } if
  71.   charproc_string end
  72. } bind def
  73. /t1scan {        % <charstring> <opsdict> t1scan <tokens>
  74.   5 dict begin
  75.   /opsdict exch def
  76.     % Remove encryption and convert to symbolic form for processing.
  77.   mark /seed 4330 /lenIV font /lenIV .knownget not { 4 } if .dicttomark
  78.   /eexecDecode filter /f exch def
  79.   /cstr [ f charstack_read /END 8 { null } repeat ] def
  80.   DEBUG {
  81.     (**** ) print [ cstr { dup null eq { pop } if } forall ] == flush
  82.   } if
  83.     % Scan the unpacked string.
  84.   /i 0 def {
  85.     % The /END token will exit from this loop.
  86.     opsdict cstr i get .knownget { exec } if
  87.     /i i 1 add def
  88.   } loop
  89.   f closefile cstr end
  90. } bind def
  91. /ciget {        % <di> ciget <token>
  92.   i add dup 0 ge { cstr exch get } { pop null } ifelse
  93. } bind def
  94. /ciput {        % <di> <token> ciput -
  95.   exch i add exch cstr 3 1 roll put
  96. } bind def
  97. /ciswap {        % <di> <dj> ciswap -
  98.   2 copy exch ciget exch ciget 3 1 roll ciput ciput
  99. } bind def
  100. /ciskip {        % <di> ciskip -
  101.   i add /i exch def
  102. } bind def
  103.  
  104. % Hint scanning procedures.
  105. /addhint {
  106.   hints 1 index known { pop } { hints dup length 3 -1 roll put } ifelse
  107. } bind def
  108.  
  109. /t1hintops mark /END { 0 null ciput exit } bind
  110.  
  111. /vstem {
  112.   cstr i 2 sub 3 getinterval addhint
  113.   /hmask hmask 1 or store
  114. } bind
  115. /hstem {
  116.   cstr i 2 sub 3 getinterval addhint
  117.   /hmask hmask 2 or store
  118. } bind
  119. /callsubr {
  120.     %**** DOESN'T HANDLE FLEX YET ****
  121.   -1 ciget /pop eq {
  122.     % This must be a <#> 1 3 /callothersubr /pop /callsubr sequence.
  123.     hmcount null eq { /hmcount hints length store } if
  124.     -5 ciget
  125.   } {
  126.     -1 ciget
  127.   } ifelse
  128.   font /Private get /Subrs get exch get
  129.   t1hintops t1scan pop
  130. } bind
  131. /hsbw {
  132.   /lsb -2 ciget store
  133.   /width -1 ciget store
  134. } bind
  135. /vstem3 {
  136.   [ -6 ciget -5 ciget /vstem ] addhint
  137.   [ -4 ciget -3 ciget /vstem ] addhint
  138.   [ -2 ciget -1 ciget /vstem ] addhint
  139.   /hmask hmask 1 or store
  140. } bind
  141. /hstem3 {
  142.   [ -6 ciget -5 ciget /hstem ] addhint
  143.   [ -4 ciget -3 ciget /hstem ] addhint
  144.   [ -2 ciget -1 ciget /hstem ] addhint
  145.   /hmask hmask 2 or store
  146. } bind
  147. /sbw {
  148.     %**** WHAT ABOUT Y? ****
  149.   /lsb -4 ciget store
  150.   /width -2 ciget store
  151. } bind
  152.  
  153. .dicttomark readonly def    % t1hintops
  154.  
  155. % Conversion procedures.
  156. /t1t2ops mark /END { 0 null ciput exit } bind
  157.  
  158. /hstem {
  159.     % We handled the hints separately, drop them here.
  160.   -2 1 0 { null ciput } for
  161. } bind
  162. /vstem 1 index
  163. /rlineto {
  164.   3 ciget /rlineto eq {
  165.     0 null ciput
  166.   } {
  167.     7 ciget /rrcurveto eq {
  168.       0 null ciput
  169.       7 /rlinecurve ciput
  170.     } if
  171.   } ifelse
  172. } bind
  173. /vlineto {
  174.   2 ciget /hlineto eq {
  175.     0 null ciput
  176.     2 4 ciget /vlineto eq { null } { /vlineto } ifelse ciput
  177.   } if
  178. } bind
  179. /hlineto {
  180.   2 ciget /vlineto eq {
  181.     0 null ciput
  182.     2 4 ciget /hlineto eq { null } { /hlineto } ifelse ciput
  183.   } if
  184. } bind
  185. /rrcurveto {
  186.   7 ciget /rrcurveto eq {
  187.     0 null ciput
  188.   } {
  189.     3 ciget /rlineto eq {
  190.       0 null ciput
  191.       3 /rcurveline ciput
  192.     } {
  193.     %**** WRONG IF MULTIPLE RRCURVETO ****
  194.       -6 ciget 0 eq {
  195.     -6 null ciput
  196.     0 /vhcurveto ciput
  197.       } {
  198.     -5 ciget 0 eq {
  199.       -5 null ciput
  200.       -1 -2 ciswap
  201.       0 /hvcurveto ciput
  202.     } if
  203.       } ifelse
  204.     } ifelse
  205.   } ifelse
  206. } bind
  207. /vhcurveto {
  208.   5 ciget /hvcurveto eq {
  209.     0 null ciput
  210.     10 ciget /vhcurveto eq {
  211.       5 null ciput
  212.     } {
  213.       12 ciget /rrcurveto eq 6 ciget 0 eq and {
  214.     5 null ciput
  215.     6 null ciput
  216.     12 /vhcurveto ciput
  217.     12 ciskip
  218.       } {
  219.     5 /vhcurveto ciput
  220.     5 ciskip
  221.       } ifelse
  222.     } ifelse
  223.   } {
  224.     7 ciget /rrcurveto eq {
  225.       1 ciget 0 eq {
  226.     0 null ciput
  227.     1 null ciput
  228.     5 6 ciswap
  229.     7 /vhcurveto ciput
  230.     7 ciskip
  231.       } if
  232.     } if
  233.   } ifelse
  234. } bind
  235. /hvcurveto {
  236.   5 ciget /vhcurveto eq {
  237.     0 null ciput
  238.     10 ciget /hvcurveto eq {
  239.       5 null ciput
  240.     } {
  241.       12 ciget /rrcurveto eq 7 ciget 0 eq and {
  242.     5 null ciput
  243.     7 null ciput
  244.     10 11 ciswap
  245.     12 /hvcurveto ciput
  246.     12 ciskip
  247.       } {
  248.     5 /hvcurveto ciput
  249.     5 ciskip
  250.       } ifelse
  251.     } ifelse
  252.   } {
  253.     7 ciget /rrcurveto eq {
  254.       2 ciget 0 eq {
  255.     0 null ciput
  256.     2 null ciput
  257.     7 /hvcurveto ciput
  258.     7 ciskip
  259.       } if
  260.     } if
  261.   } ifelse
  262. } bind
  263. /closepath {
  264.   0 null ciput
  265. } bind
  266. /hsbw {
  267.     % We handled this separately, drop it.
  268.   -2 1 0 { null ciput } for
  269. } bind
  270. /dotsection {
  271.     %**************** NYI ****************
  272. } bind
  273. /vstem3 {
  274.     % We handled the hints separately, drop them here.
  275.   -6 1 0 { null ciput } for
  276. } bind
  277. /hstem3 1 index
  278. /seac {
  279.     %**************** NYI ****************
  280. } bind
  281. /sbw {
  282.     % We handled this separately, drop it.
  283.   -4 1 0 { null ciput } for
  284. } bind
  285. /callothersubr {
  286.   -1 ciget 3 eq {
  287.     %**** HANDLE HINT REPLACEMENT ****
  288.     -2 ciget 1 eq 1 ciget /pop eq and 2 ciget /callsubr eq and {
  289.       -2 1 1 { null ciput } for
  290.     } {
  291.       (**************** 3 callothersubr -- invalid call\n) print
  292.       /t1tot2 cvx /rangecheck signalerror
  293.     } ifelse
  294.   } if
  295. } bind
  296. /pop {
  297.     %**************** NYI ****************
  298. } bind
  299. /setcurrentpoint {
  300.     %**************** NYI ****************
  301. } bind
  302.  
  303. .dicttomark readonly def    % t1t2ops
  304.